home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / MAGDALEN.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-29  |  1.4 KB  |  39 lines
  1. 2  CLS:ZA$="From 'The Little Notebook for"
  2. 3  ZB$="Anna Magdalena Bach'"
  3. 4  ZC$="by J. S. Bach"
  4. 6  LOCATE 10,40-LEN(ZA$)/2:PRINT ZA$
  5. 7  LOCATE 11,40-LEN(ZB$)/2:PRINT ZB$
  6. 8  LOCATE 12,40-LEN(ZC$)/2:PRINT ZC$
  7. 10  A$="o3D..o2GABo3CD..o2Gp8Gp8"
  8. 20  B$="o3E..CDEF#G..o2Gp8Gp8"
  9. 30  C$="o3C..DCo2BAB..o3Co2BAGF#..GABGBA...p4"
  10. 35  C1$="o3C..DCo2BAB..o3Co2BAGF#..GABGA....p4"
  11. 40  D$="o3C..DCo2BAB..o3Co2BAGA..BAGF#G....p4"
  12. 50  E$="mlo3B..GABGA..DEF#DG..EF#GDC#..o2Bo3C#o2Ap8ABo3C#DEF#G..F#..E..F#..o2A..o3C#..D....p4mn"
  13. 60  F$="D..o2GF#Gp8o3E..o2GF#Gp8o3D..C..o2B..AGF#GAp8DEF#GABo3C..o2B..A..Bo3Do2G..F#..G....p4"
  14. 70  G$="o3A...p8GF#EDp64A...p8GF#EDp64"
  15. 80  H$="o2F#GA..G..F#..E..A..F#..D.."
  16. 90  I$="o2F#GA..G..F#..E..A..D..p4"
  17. 100  J$="o3C#DEp8C#DEp8A..Ep8Ep8E..A..Ep8A..Ep8DC#o2BAB..Ep8"
  18. 110  K$="o3E..D#p9o2E..l10o3D....l8C#..o3A..G#..E..D#p9o2E..l10o3D....l8C#..A..G#..ED#C#D#ED#C#D#E.p16mno2G#..A..o3D..C#DE..o2A..D..C#DE..o1A..p4"
  19. 120  L$="o2F#GA..G..F#..p2E..A..o3D.."
  20. 130  PLAY"mbmnt195l8"
  21. 140  PLAY G$:PLAY H$
  22. 150  PLAY G$:PLAY I$
  23. 160  PLAY G$:PLAY H$
  24. 170  PLAY G$:PLAY I$
  25. 180  PLAY J$:PLAY K$
  26. 190  PLAY G$:PLAY H$
  27. 200  PLAY G$:PLAY L$
  28. 205  PLAY "p1p1p1"
  29. 210  PLAY"mbmnt150l8"
  30. 220  PLAY A$:PLAY B$:PLAY C1$
  31. 230  PLAY A$:PLAY B$:PLAY D$
  32. 250  PLAY A$:PLAY B$:PLAY C$
  33. 260  PLAY A$:PLAY B$:PLAY D$
  34. 270  PLAY E$:PLAY F$
  35. 280  PLAY A$:PLAY B$:PLAY C1$
  36. 290  PLAY A$:PLAY B$:MID$(D$,LEN(D$)-1,2)=". ":PLAY D$
  37. 295  FOR I=1 TO 1000:NEXT I
  38. 300  CHAIN "A:CLASSICS.BAS"
  39.